home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 4
/
64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64
/
listing 04.d
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
403b
|
10 lines
10 gosub10000: rem datei deffinieren
100 rem steuerprogramm ---------------------------------------------------------
110 x$="":input"welchen begriff soll ich suchen ";x$
120 ic=0:for sa=1 to sz
130 : if x$=d$(sa) thenprint"der gesuchte begriff steht in satz ";sa:ic=ic+1
140 next sa
142 ific=0thenprint"dieser begriff ist in der fruechtedatei nicht enthalten!"
144 ific>1thenprint"achtung, der begriff ";x$;" kommt";ic;"mal vor!"
150 goto110